4-44 
444 
444 
a4 
44 
4444 


aa dh gt ad a gt at gt a st 
a hs hd gad ad a dd ag ag a a 
a aah a ag ad ad gg ad tg a tt 
a a as gas a at a tt at tt st st st st st tt 
a a ah ag ag ag a a dg at tg st tt 
aa as sg a a a hd a tt at tt st 


4444 teed RRRRRRRRRRRR VVV VVV_  RRRRRRRRRRAR 


D 

DDDDDDDDDDDD RRRRRRRRRRRR VVV VVV RRRRRRRRRRRR 
DDDDDDDDDDDD RRRRRRRRRRRR vVV VVV_ RRRRRRRRRRRR 
DDD DOD RRR RRR VVV VVV RRR R 
DDD DD RR RRR VVV VVV_ RRR RRR 
DD DOD RRR RRR VVV VVV RRR RRR 
DDD DOD RR RRR VVV VVV RRR RRR 
DOD DOD RRR RRR VVV VVV RRR RRR 
DDD DOD RRR RRR VVV VVV RRR 

DDD DOD RRRRRRRRRRRR VVV VVV_  RRRRRRRRRRRR 
DOD DDD RRRRRRRRRRRR VVV VVV_ RRRRRRRRRRRR 
DOD DDD RRRRRRRRRRRR VVV VVV RRRRRRRRRRRR 
DDD DDD RRR RRR vVVV VVV RRR RRR 

DDD DDD RRR RRR VVV VVV RRR RRR 

DDD DDD RRR RRR RRR = RRR 

DOD DDD RRR RRR VvV OV RRR RRR 
DDD DOD RRR RRR vvV VV RRR RRR 
DOD DDD RRR RRR vvV OV RRR RRR 
DDDDDDDDDDDD RRR RRR VVV RRR RRR 
DDDDDDDDDDDD RRR RRR vvV RRR RRR 


DDDDDDDDDDDD RRR RRR VvV RRR RRR 


*eF ILEte 1 Dee TTYSTRSTP 


aaaa 
aaaa 
aa aa 
aa ao 
aa an 
aa aa 
aa aa 
aa aa 
aaqaaaqaaaaqadaaaaaa 
aqaagaaaaaaqdaaaa 
hie 
bee 
eh 
a 
ee ero 
ee 
ee 
me 
ee 
be 
nw YNnNw 
ow NNW 
nw nw nw 
nw ww nw 
nw nw ow 
now nw ww 
nw nw nw 
nw nw own 
NNN an 
NNNM nn 
ecaca eo 
eecer ect 
aa aca ca 
aw eaca 
ac ecace 
aca ca 
aca ca 
@ancaaaacacacacaacacer 
@aeacacaancacaacanr 
od 
nae 
od 
me 


en a ee ee 
a ee ee ee ee ee ee ee ee 
ee 


oieed 
be th 
pote 
nw MMMM 
mw Minn 
nw “ww mn 
nw nw mown 
nw nw own 
nn nw mw 
NNN nw 
NNNM nn 
>>> > 
>>> > 
>> 
>> 
>>> >> > > > 
>>> > > > > 
>> 
>> 
>>> > 
>>> > 
os 
i 
od 


os 
os 
tel auel ae aunel ane aoe cee el el cell cell oll el oe 


a el el ee ee eed 
a eto 


NW MMMM 
nw Muwnnnw 
nw nw 
nw own 
nw own 
nw “wn 
nw nw 
nw mm 
ANYMM 
NNWMM 
oe 
—o 


LLLLLLLLLL 
LLLLLLLLLL 


a ee ee et a i o- 
m4 4 4 4 41 


. 3 
= Terminal driver start/stop 1/0 routine 16-SEP-1984 02:18:30 VAX/VMS Macro V04-00 


ions 
TIO = START fa OPERATION ON TERMINAL 

aa TiON ROUTINES 
TARTIO = Starts or gueves a write operation 
vourryy = START OUTPUT OPERATION ON UNIT 
XTWRITE = Start next write or restart read 
EBONE - Complete a write operation 

POST = QUEUE A WRITE COMPLETION 
oe READ OPERATION DONE 

ule 
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FACILITY: 

VAX/VMS TERMINAL DRIVER 
ABSTRACT: 


THIS MODULE CONTAINS ROUTINES PERTAINING TO STARTING AND COMPLETING 
1/0 REQUESTS. 


AUTHOR: 
R.HEINEN 10-OCT-1977 
Revision history: 


V03-030 M1IRO450 WICHAEL I, ROSENBLUM 27-JUN-1984 
Add code to the free linefeed logic to account for PC_NOCRLF. 
Fix problem that causes the first linefeed typed on a 
read with no prompt to not be echoed. 


v03-029 RKSO0029 RICK SPITZ 10-APR-1984 
Enhance virtual terminal connect action routine to 
perform an implicit set mode operation. 


v03-028 m1R0370 Michael I. Rosenblum 20-Mar-1984 
Put code in to fix problems with Lines and prompts causing 
wrap. Fix bug that would cause FMS programs to crash the 
system. 
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V03-027 RKS0027 RICK SPITZ 05-MAR-1984 
Enhance write post complet fon to handle the case 
of a write completion with no current PUCB. 

v03-026 mjR0510 Michael I. Rosenblum 09-Feb-1984 
Fix bugs 


make sure setting nomodem on a modem terminal shuts down 
e lin 


v03-025 M1RO300 Michael I. Rosenblum 30-Jan-1984 
Add input fallback 

V03-024 MIROO8S Michael I. Rosenblum 26-Aug-1983 
Remove references to DCL_OUTBND and DCL_CTRLC. 

V03-023 M1RO082 Michael I, Rosenblum 19-Aug-1983 
Make autoxoff mode work with passall and ttsync. 


Fix pasthru to remain enabled after a read completes. 


v03-022 MIROO80 Michael I. Rosenblum 28-Jul-1983 
Move newline code into write done rather than TTYFDT 
Reposition routines in the module. 


v03-021 MIROO70 Michael I. Rosenblum 13-jul-1983 
Fix bug that would cause TTYSDISCONNECT to be called twice. 
if a SETMODE with the HANGUP modifier was issued. 


v03-020 m1RO051 Michael I. Rosenblum 23-Jun-1983 
Fix missing Litterals in connect and disconnect code. 
Check write active bit in getnextwrite to insure that 
The write queue is not reordered. 
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v03-019 RKSO019 RICK SPITZ 7-JUN-1983 
ADD CONNECT/DISCONNECT ACTION ROUTINES. 
ENHANCE WRITE DONE FORK PROCESS TO ALWAYS USE REQCOM 
IF THE WRITE IRP IS POINTED TO BY UCBSL 
MAKE SURE LUCB IS NOT DETACHED AT THE ACTERNATE WRITE ENTRY. 
REMOVE CTRLY HANGUP CHECK, AS IT IS STILL DONE IN FDOT. 
v03-018 RKSO018 RICK SPITZ 16-MAY-1983 
MOVE SEGMENTS OF CHARACTERISTICS FDT CODE TO TTYSTRSTP 
TO ALLOW CLEAN DISCONNECT OF DISCONNECTED TERMINALS. 
| RESTORE LUCB FROM LUCB IN READ/WRITE DONE. 
1 v03-017 MIROOSO Michael I. Rosenblum 11-May-1983 
1 Remove code that special cased broadcasts. Allow the 
0 1 data returned by timeout errors to be stored in the recall 
8 ! buffer. Make write post complete broadcasts. 
1 V03-016 MIRO030 nigh el I. Rosenblum O-Mar-1983 
1 Integrate Read verification with the standard driver 
! Add support for alternate frame sizes. 
1 v03-015 MI1ROO29 Michael I. Rosenblum 22-Mar-1983 
! Add field to the iosb when itemlist reads are used. 
1 V03-014 RKSOO14 RICK SPITZ 14-MAR-1983 
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UCB_CONTEXT AT_STA 
CONTEXT PRIOR TO R 


v03-013 R626 Michael I. Rosenblum 14-Mar-1983 
x bug in partail escape sequence processing. 


V03-012 MIR5026 Michael I. Rosenblum 10-Mar-1983 
Fix security whole with command recall and the password 
py snot allowing noecho strings to be stored in the recall 
er. 


V03-011 MIR1024 Michael I. Rosenblum 09-Mar-1983 
Fix code in getnxtwrite to look at the read packet 
rather than UCBSW_BCNT to find the number of characters 
that have been read so far. 


v03-010 nindees Michael I. Rosenblum 01-Mar-1983 
Add code to save the results of the Last read. 


V03-009 MIROO24 Michael I. Rosenblum 28-Jan-1983 
Update code to use the new read packet format 


v03-008 ee ie Michael I. Rosenblum 24-Jan-1983 
Read buffer was used after it was deallocated if a 
Cancel was issued waite EDITREAD state was in affect. 
Changed READONE code to clear the edit read states 
when a read is completed. 


MIROO16 Michael I. Rosen pols an-1983 

Change TTYSSTARTOUTPUT to use the UCB OUTYPE field” te determine 
the necessary action when TTYSGETNEXTCHAR is called. This change 
should illiminate the check Ls the vel ttele condition code bits 
that previously had the function of OUTYPE. For compatibility 
purposes only we are setting the correct condition codes. 


v03-006 ee Michael 1. Rosenblum 00-Dec-1982 
Change 7 “sy. ST UNSOL and TTYSV_ST_GETAHD to TTYSV_FD_UNSOL 
and TTy$v GETAHD, to reflect. changes in the fork dispatcher 
also chang + PORT_D DISCONNECT call to refer to 
CLASS_MODEM_DIS.~ omy att port calls to cali the Class 
driver eckat routines. 


v03-005 mjRoo Michael I. Rosenblum 16-Dec-1982 
x “ hot to new ucb structure 


v03-004 sphveddy heel I enblum 
Remove code cheer ot OM HOLDSCREEN. 


v03-003 m1R0010 Michael I Rosenblum 09-Nov-1982 
Move the address 9 the terminator mask, and the length 
° ‘ he prompt string from the IRP into the terminal read 
uffer. 


v03-002 ROW0077 glph © . Weber 27-MAR-19 8 
Change TTYSURITEDON to insure that eventhough UCBSW_TT_CURSOR 
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v02-041 
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v02-038 
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gan now be bigger than UCBSW peveur S35. i.e. eventhough our 

nternal cursor position marker can virtually be beyond the 
ri es edge of the screen, the cursor-position value 
returned in I10SB will never exceed the width of the screen. 


JLVO202 Jake venek 23-MAR-1982 
shange MODHANGUP from NOMOD to PRIV_TO_MOD in Set 
Mode/Char logic. 

Correct alternate class name lookup. 


RKS0045 RICK spitz 
Repair diagnostic function code logic. 


RKS0044 RICK SPITZ 16-F EB-1982 
Enhance broadcast logic to allow delay prior to 

rors 108 output. Move setting of controls pending 

to STOP2 timeout. This way user “s can be distinquished 
from terminal xoff. 

Save RS prior to forking to create typeahead on read. 


RKS0043 RICK SPITZ 11-F EB-1982 
Zero fork byte in TWP to allow DMA of broadcast. 
Prevent XON characteristic from being permantly set. 


RKS0042 Rick Spitz 8-F EB-1982 
Repair Alternate typeanead logic to allow setting 

Permanent from users terminal. 

Allocate typeahead buffer when starting read, if not already 
done. This is needed for lines which are used for communications 
on DMF-32 async Lines. 


ROW0066 Ralph 0. Weber 31-JAN-1982 

Enhance alternate class driver setup to relocate address in 
alternate class driver vector table. Correct use of 
unrelocateable .ASCID directive. 


22-F EB-1982 


RKS0040 RICK SPITZ 24-JAN-1982 

USE INPUT VALUE FOR READ FIELD OFFSET. 

ADD LOGIC TO BIND TO ALTERNATE DRIVER. 

RKSO0039 RICK SPITZ 15=DEC-1981 
FIX MAINTENANCE DISPATCH LOGIC. 

DISALLOW SETTING ALT TYPEAHEAD IF ONE ALREAY EXISTS. 
EMOVE £0510 peayinenen! FOR PARITY ENABLE. 

FIX WRTSTARTIO RETURN ADDRESSING 

LOW NOECHO READ TO NOT BLOCK WRITES. 

D WRITE POST ROUTINE TO REPLACE INSPOST LOGIC, THIS 
CORRECTS RACE CONDITI N HALF DUPLEX WRITE COMPLETIONS. 
ADD SUPPORT FOR ALTERNATE CLASS DRIVER. 

JLVO126 Jake VanNoy 11-Dec-1981 

Add local echo logic and set speed privilege checking. 
JLVO102 Jak Vortiey 27-0c t-1981 

Changed TTYDEFS to STTYDEFS. 

JLv0070 Jake VanNoy 28-Aug-1981 
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Added UCBSL_TT_DEVDP1 checking and no refresh on broadcast. 
vO2-035 RKS035 RICK SPITZ 26-AUG-1981 
ADD MAINT ENABLE BIT 
VO2-034 RKS034 RICK SPITZ 20-AUG-1981 
ADD SUPPORT FOR ESCAPE MODIFIER ON READ. 
v02-033 RKS033 RICK SPITZ 12-AUG-1981 
RESET DMA ABORT STATE IN WRITE DONE LOGIC. 
RESET CONTROLS STATE FOR MAINTENANCE FUNCTIONS. 
v02-032 RKSO32 RICK SPITZ 27-JULY-1981 
SEVERAL ENHANCEMENTS HAVE BEEN ADDED TO SUPPORT REVISIONS 
TO THE UCB STRUCTURE INCLUDING SPLIT SPEED, AND QUADWORD STATE 
D DEVDEPEND FIELDS. 
SUPPORT FOR DIAGNOSTIC FUNCTIONS AND ENHANCED MODEM PROCESSING 
S BEEN ADDED. SEVERAL CHANGES TO te! THE CLASS/P 
STRUCTURE AS WELL AS ENHANCEMENTS TO A NAL 
ARE TBATED CONTROL S$ AND Q DURING BROADCAST HAVE ALSO BEEN 
v02-031 RKS031 RICK SPITZ 26-F EB-1981 
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Ral(Da HOR HCRESHOG BESISSES PAROOE SESEAGRD nes 8” dy 
pee -SBTTL TTYSSTARTIO = START 1/0 OPERATION ON TERMINAL 
; TTYSSTARTIO = START 1/0 OPERATION ON TERMINAL 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS ENTERED WHEN THE UNIT IS IDLE AND THERE IS A PACKET TO PROCESS. 
INPUTS: 

1/0 PACKET FORMATTED AS DESCRIBED IN TTYFDT. 


Rg = 1/0 PACKET ADDRESS 
R> = LOGICAL UCB ADDRESS 
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OUTPUTS: 
NONE 
TYSSTARTIO:: ; START TERMINAL 1/0 


MOVE TO PHYSICAL UCB CONTEXT. THIS INVOLVES DUPLICATING 
MANIPULATIONS TO THE LOGICAL UCB DONE BY IOCSINITIATE 


MOVL : BSL ait -PHYUCB(RS),RO ; GET PHYSICAL UCB ADDRESS 
ces TRP(RO) + COPY ADDRESS TO PHYS UCB 
mova Tae L SURPTECR ) cos SVAPTE(R 
BICW #UCBSA_CA CANCEL! UCBSM TIMOUT ,UCBSW_STS(RO) 

; SWITCH"TO PHYSICAL UCB 


Gee Se Ge Ge Se Ge Ge Ge Ge Se Ge Se Se Se Se Se 
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FFE6" 30 BSBW ss TTYSLOCK PL_AND REGISTERS 
54 2003 FFCO BF AB 00 BICW3 #CelOsM FCODE> RPS FUR TRS R4; GET INTERNAL | FUNCTION CODE 
CASE 4, TYPE=8,<D0_READ,DO-WRITE DO’ SETM, DO. SETC.DO_H NGUP _ 


DO_MAINT, ate ARNGUP. 60_ CONNECT. 50. DISCORNEC 
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«Sbttl START_IO ACTION ROUTINES 
CONNECT THIS PUCB TO A DETACHED LUCB 


TTYSTRSTP - Ter 
yO42000 START 


os 
zs 
mee 
om 


DO_CONNECT: 
of E1 zs BBC #10$V_TT BISON ° 
8 $0 A Hs 4 FUNC (RS) 108 ,SKIP UNLESS DISCONNECT SPECIFIED 
48 AS 00020000 BF CA 10$ BICL #TT $A_DISCONNECT ,UCBSL_DEVDEPND2(R ); FORCE HANGUP TO COMMAND PROCE 
51 0084 3 0 ; MOVL YEECL POT CRS) 1 ; GET TARGET LUCB ADDRESS 
a BEQL ; NONE, MUST BE JUST DELETED 

SET_STATE RECONNECT ; SET RECONNECT STATE TO TARGET LUCB 
PUSHR #*M<R1,R3> ; SAVE IRP ADDRESS AND LUCB 
MOVL #TTYSV FD DISCONNECT ,R4 ; SCHEDULE DISCONNECT COMMAND PUCB 
BSBW TTYSCRE_ FORK 
POPR #*M<R1,R3> ; SAVE IRP ADDRESS AND LUCB 


NOW CONVERT IRP INTO SET MODE AND FILL IN VALUES FROM 
THE TARGET LUCB 
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Sete 


40 A344 A1 7D MOVQ UCBSL_DEVDEPEND(R1),IRP$Q_TT STATE CRS) 
9 A341 Al 90 MOVB  UCBSB-DEVTYPE(R1) ,IRPSL_MEDIA+1(R3) ; TERMINAL TYPE 
AAS 4241 B60 MOVW  UCBSWIDEVBUFSIZ(R1),IRPSL_MEDIA+2(R3) ; WIDTH 
4C a D4 CLRL IRP$~TT_PRMPT(R3) 
009C C D4 CLRL IRP$L-VAC5(R3) 
40 A3 00200000 8F CA BICL #TTSM_MODEM, IRP$Q_TT_STATE(R3) ; TRACK MODEM TO BE SAME AS 
08 44 a5 =15—=«CO#€E? 9 BBC #TTSV-MODEM, UCBSL_DEVDEPEND (RS) ,20$ : 
40 AS 00200000 8F C8 re _ BISL  #TTSMMODEM, IRP$Q-TT_STATE(R3) 3 
44 A3 00920900 8F CA p 4 ; BICL  #TT2$M_DISCONNECT, IRP$Q_TT_STATE+4(R3) ; TRACK DISCONNECT TO BE SAM 
08 48 AS so11—séE f BBC #TT2SV~DISCONNECT.UCBSL_DEVDEPND2(R5) ,22$; 
44 A3 00020000 8F C8 3 _ BISL  #TT2SMIDISCONNECT,IRPSO-TT_STATE+4(R3)  ; 
3 
0125 31 39 BRW DO_SET ; NOW INVOKE SET MODE ACTION ROUTINE 
50 0908 8F Hi 9C 25$: MOVZWL #SS$_NOSUCHDEV,RO ; INDICATE DEVICE NOT AVAILABLE 
0691 1 00A1 BRw TTYSBONE 


BSBW TTYSCRE_FORK 
port a 

MOVZWL #SS$ 
BRW TTY$6 


; RESTORE IRP 
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A 
AS 3 DISCONNECT COMMAND LUCB FROM PUCB. 
7 z? If NOT DETACHED, HANGUP SIGNALED TO COMMAND PROCESS 
AG 5 DO_DISCONNECT: 
AS § PUSHL R3 $ seve IRP 
3 MOVL #TTY$V_FD_DISCONNECT,R4 ; SCHEDULE DISCONNECT ON THAT PUCB 
+4 
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PROCESS HANGUP FUNCTION. THIS ROUTINE FORCES A MODEM HANGUP 


3 8 PUSHR #*M<R3,R4,R5> ; SAVE REGISTERS 
FF46" BSBW CLASS MODEM DIS + DISCONNECT UNIT 

3 POPR #*M<R3_R4,R5> ; RESTORE REGITERS 
036 1 BRW po_exif 
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TTYSTRSTP - Terminal driver start/stop 1/0 routine 16-SEP-1984 02:18: AX/VMS Macro v04-00 Pp 1 TT 
v04= START_10 Action ROUTINES > $7 oats 7 92:18:38 TTDRVR.SREITTYSTRSTP.MAR: 1 wt dh vO 
100 418; 
p 4 ; READ OPERATION 
10D 421 bO_READ: : 
54 78 a5 00 p 4 : MOVL  UCBSL_SVAPTE(RS) ,R4 ; GET THE ADDRESS OF THE READ PACKET 
6 40 A C 11 424 BISL IRP$Q_TT_STATE(R3),(R2) ; Set the read state bits. 
04 5 4403 ¢ 113 4 5 BISL IRPSOnTTTSTATESC CRS) -c CRED ’ 
38 AS) 4 yA ? § CLRL IRPSL_MEDIA(R3) : Set p storage for the read 
. terminator. 
046 AA Q11ID 4&4 g BICW #UCBSM_TT_NOTIF,=- 3 he Fuser has not been 
Oe er Hi Enc HEBRISDDNEES SSF Bree EnSS i purge & 
te - ; Branch forwar urge e- 
03 20 A 1 : 4 § IRP$W"FUNC(R3) , 10$ 3; ahead not requested. sta 
FED?’ 30 01 é 4 BSBW TTYSPORGE_AHEAD ; Otherwise, purge buffer. 
! 3 ? : 108: 3; the write completes. 
00E4 dS 0129 4 ( TSTL BSL_TT_TYPAHD(RS) ; Type ahead buffer allocated? 
3 3 : 4 § BEQL itd oat : Noe yet reliance 
FECE' 30 Ol2F 4 § 12$: BSBW = =TTYSSETUP_READ ; Set up the UCB for a read 
1 440 3 operation. 
i 
1 103 : CHECK FOR LINE FEED NEEDED 
135 ads 
0 723 : IF _STATE - ; Skip if passall, or 
1 44 <PASALL>,25$ 
136 448 IF_NOT STATE NOECHO,14$ ; NO ECHO THEN 
A 449 Pe CLR_STATE EDITING : NO EDITING 
ii 431 "  <NCWRAP>, 208 : if already did Line feed. 
14 re IF _NOT_STATE NOECHO,15$ : Branch if echo 
09 E1 0149 454 Bet #TT2$V_LOCALECHO,- ; Branch if not local echo 
26 48 A 148 439 UCB$L_BEVDEPND2(R5) 208 
OOFC C5 85 166 135 15$ TSTW yCBS._TT_CURSOR(RS) ; CURSOR AT 0? 
1 1 $28 BNEQ 0$ : If no, send no Line feed. 
oorr CS) «91 «0154 45 CMPB UCBSB_TT_LASTC(RS),- : Was the last character also a 
OD 1 § 460 #TTYSC_CR 3 carriage return? 
19 12 O1 461 BNEQ 20$ : No. Don't send free Linefeed. 
158 46¢ IF _NOT_STATE SKIPLF,17$ : NO SKIP L INEFEED THEN BYPASS NOCRLF CHECK 
OF 0122 cS 07 «©£€0 «(O1SF O46 BBS #TTYSV_PC_NOCRLF ,UCBSW_TT_PRTCTL(R5) ,20$;SO JUST ECHO THE CHARACTER 
165 464 17$:  SET_STATE <SENDLFS s7"SEND A LINE FEED FIRST 
168 465 CLRTSTATE <SKIPLF> 
1 466 IF_ROT STATE PROMPT, 20S ; DO WE HAVE A 
1 46 SET STATE <SKIPLF> ; SEND A LINE FEED FIRST 
7 ies 20S: IF STATE ROVERIFY,25$ : THIS ISN'T NECESSARY IF READ VERIFY 
54 78 As p0 158 4 p MOVL -UCBSL_SVAPTE(RS) ,R4 : GET THE READ PACKET ADDRES 
7E OOFC C W7¢ 47 MOVZ2WL UCBSW"TT_CURSOR(RS) ,-(SP5; SAVE THE CURSOR POSITION FOR ECHOING 
02 4404 8B i 47@ CMPW TTYSWIRBIMODE (RA) ,ATTYSK ER ECHL INE; 1S THIS A READ WITH INITIAL 
OD 12 01 i 474 BNEQ 218 t NO THEN USE NORMAL 
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TTYSTRSTP - Terminal driver start/stop 1/0 routine 16-SEP-1984 02:18:30 VAX/VMS Macro v0é- Page 13 TY 
you2000 START_I0 AcTion ROUTINES §-§ Ep =|382 ve 19:38 TTDRVR. CREST TVS TRG P MAR: 1 ° di vo 
OOFC CS) «60128 CS) (9B SCO187 = 475 MOVZBW UCBS$B_TT_OLDCPZORG(RS) -UCBSY i 5cuRS RRS): YES THEN USE THE 
1 4 : bs BIN! ,fURSOR POSITION 
3A AG 0138 5 98 | 4 MOV7BW iff i TT =PrnaeertRSS? thy W_ 3 C WORGC 
Ad 8 1 478 21S: CLRW T Su a EXTR RA CHARA crirs 
FE66' 9 1 4 BSBW OCLEA eat rape abot” and 
OOFC C5 F f 194A 4 rVTLW at No Ucesy 5 meet rargrone THE CURSOR POSITION FOR ECHOING 
03 1 198 4 958: BRW TTYSStAR OUTPUT ; Go start the read. 
iS ; 3; Allocate typeahead buffer 
3 DD O1A2 485 PUSHL R ; SAVE IRP ADDRESS 
04 O1M6 «4 : CLRL. oR + INDICATE NO DAT 
54 «01 p lag 4 MOVL dTtysy FD_GETAHD,R4 + ASK FOR TYPEAHD FORK 
FES4" 1A9—s— j BSBW 36s TTYSCRE_FORK ; GO ALLOCATE BUFF R 
3 ee ac 4 POPL R3 ; RESTORE IRP ADDRES 
FF7D = 31 1Ar 490 BRW 12$ : CONTINUE PROCESSING 
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Neg tO 1/0 routine 1grSEP=19B6 06:19:09 LTTDRVR.SREITTYSTASTP.MAR;1 *" (13) 
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DO_SETM: 
o00c 31 . BRW DO_SET 
; DO SET CHARACTERISTICS 
DO_SETC: ; DO PRIVILEGED SET 
32 a3 o¢ 8} CMPW =: #12, IRP$W_BCNT(R3) ; CHECK PARAMETERS 
1 BLEQ v0. SET > ALL SPECIFIED 
00¢8 cS 0 MOVL UCBSL_TT_DECHAI(RS).- ; INIT DEFAULT IF NOT SPECIFIED 
44 A IRPSQ-TT-STATE+4 (R35 
; PROCESS CHANGE OF CHARACTERISTICS AND MODE 
; CHANGE BASIC MODE BITS IN UCBSL_DEVDEPEND 
DO_SET: 
54 44 45 40 03 CD bs XORL3 = IRP$Q_TT_STATE(R3) ,UCBSL_DEVDEPEND(RS),.R4; GET MODIFIED BITS 
08 54 OD €E5 BBCC #TT$VTREMOTE,R4,8S > DISALLOW CLEARING REMOTE BIT 
40 A3 00002000 8F CA BICL  #TTSMTREMOTE, IRP$Q_TT_STATE(R3) 


; DISALLOW SETTING REMOTE BIT 
3 CLEAR THE CHANGED BITS 


co 
bed 


BICL R4 ,UCBSL_DE 
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4 54 OCA VDEPEND (RS) 
4445 40 A3 (CB BISL  IRP$Q_TT~STATE(R3) ,UCBSL, DEVDEPEND(RS); 
105 3903 90 MOVB IRP$L_MEBIA+1(R3) ,UCB$B8_BEVTYPE(RS); INSERT NEW TERMINAL TYPE 
: DEVDP1 BIT CHECKING 
, MOVL. IRP$Q_TT_STATE+4(R3),RO ; GET SECOND DEVDEPEND WORD 
XORL3 RO UCBSL DEVDEPND2(R5),R1 ; GET MODIFIED BITS 
BICL &#<fT2$M_BCL_MAILBX>,RO ; REMOVE DCL SPECIFIC BITS 
BBC #tT $V_DMA.RI. 138 ; SKIP IF DMA NOT CHANGED 
4 BBC #TT2$V~DMA,RO, 108 : BRANCH IF TURNING DMA OFF 
122 BBC #TTYSV~PC_BMAAVL ,UCBSW_TT_PRTCTL(R5S),10$ ; DONT IF FEATURE NOT AVAIL 
50 0 9 40 BISL  #TT2$M“DMA,RO "SET DMA CHARACTERISTIC ON 
0122 C BIS #TTVSAPC_DMAENA,UCBSW_TT_PRTCTL(R ) ; ENABLE IN PORT 
0132 c 10$:  BICW  #TTYSM_PC_DMAENA,UCBSW_TT_PRTCTL(RS) ; DISABLE DMA IN PORT 
50 00000040 BICL #TT2$M“DMA,RO ; "RESET DMA CHARACTERISTIC 
1 12$ NOMOD ALTYPEAHD ; DISALLOW CHANGING TYPE AHEAD 
03 BBS #112$V_MODHANGUP, - 
11 48 A5 UCBSL_BEVDEPND2(R5),15$ ; BRANCH IF MODIFY HANGUP ALLOWED 
PRIV_TO_MOD HANGUP ; REQUIRE PRIV TO MODIFY HANGUP 
15$:  PRIV7TO“MOD SETSPEED t REQUIRE PRIV TO MODIFY SET SPEED 
4 PRIV-~TO-MOD $ REQUIRE PRIVS TO MODIFY SECURE SERVER 
3 PRIV~TO-MOD MODHANGUP + REQUIRE PRIV TO MODIFY MODHANGUP 
06 50 5 €1 BBC att $V_XON.RO,208 ; BRANCH IF NO XON REQUESTED 
5 0 cA BICL ~ #TTOSM™XON.R + RESET XON BIT. 
FD89" , BSBW = TTYSRESUME : CALL RESUME 
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TTYSTRSTP - Terminal driver start/stop 1/0 routine 16-SEP-1984 02:18: AX/VMS Macro V04-00 P 5 
yous000 START_10 Action ROUTINES $7 36-1382 82:19:38 YT TORVR. SRCITTYSTRSTP.MAR:1 3” RES 
48 a5 50 00 He MOVL  RO,UCBSL_DEVDEPND2(R5) ; SET SECOND DEVDEPENDENT WORD 
: SET UP WIDTH 
4205 3A A3_ B0 4 | MOVW = IRPSL_MEDIA+2(R3) ,UCBSW_DEVBUFSIZ(R5); INSERT NEW CARRIAGE WIDTH 
is ; SET UP SPEED 
51 4C AB 36 : MOVZWL JRPSW_TT_PRMPT(R3) ,RI ; GET NEW SPEED 
1 (1 4 559 BEQL 0$ : IF EQL THEN NO CHANGE 
é : SET SPEED PRIVILEGE CHECK 
00F4 cS) 51 94 6 56 CMPB =- R1,UCBSW_TT_SPEED(RS) ; IS LOW ORDER BYTE OF SPEED CHANGING? 
12 «1 8 64 BEQL 288 + BRANCH IF NOT 
OD 48 {3 " 4 88 on jee age bed DEP Nbe ig. 28$ ; BRANCH IF SET SPEED ALLOWED 
58 B3 00400080 BF D3 0292 568 BITL A<cOPRVSY (6 : DOES PROCESS HAVE LOG_IO 
9A 569 <1aPRV$V_PAY fos + OR PHY_IO PRIVILEGE? 
0 9a 570 RPSL ARB (R3) : CHECK ACCESS RIGHTS BLOCK 
03 12 9A «571 BNEQ + BRANCH IF PRIVILEGED 
0190 «3 3¢ fe BRW NOPRIV_EXIT + PRIV FAILURE 
9F $74 ; 
3 13 i + PROCESS PARITY SETTINGS 
OOF4 C5 51 BO 0 OF sry eas MOVW R1,UCB$W_TT_SPEED(RS) INSERT L LINE SPEED 
12 009¢ ¢ 05 a AG)6 5578 30$: = iB atts ALTRERR RPSL VALSIR 5$; BR IF PARITY SHOULD NOT BE ALTERED 
50 009C C3 3F BF AA 579 BICB3 #c< cITSHP IfY! TT$A_ODD> inést VAL5(R3),RO; RESET BITS 
oor8 ¢5 CO er 8A 0281 0 BICB so #T TSM phat ty tTTSn 9008 uce$e T-PARITY(R5$: CLEAR CURRENT PARITY 
OofF8 cS) 50s Bf 1 BISB RO. UCB$B_TT_PARITY(RSS ; PRSERT NEW vaiué 
0 BC ¢ i ; SET UP CHARACTER SIZE AND STOP BITS 
O5Be 88S 45s 
08 009C C3 04 EO O2BC 586° BBS #TTSV_ALTFRAME, IRP$L_VAL5(R3), 36$; DOES THE USER WANT A NEW FRPAM SI 
21 00F8 C5) «(02Stsé€#’?D C 3 ? BBC #UCBS0_TT_USERFRAME , OcBSB_TT PARITY(RS),37$; DID THE USER SPECIFY 
C 8 THE FRAME SIZE? 
B 11 O02 9 BRB 42$ § THEN DON'T BOTHER IT 
90 00 8cS 02 €5 OCA 0 368: BBCC_ #UCB$V_TT_USERFRAME vege 1 “PARITY(RS) ,38$ 
50 o0%c c PEFFEFFO F ce DO «591 38$: BICL3 #*C<*XOF>TIRPSL_VALS(R3) RO; GET THE NEW FRAME 
op 1 DA 96 BEQL PECIFYED THEN CLEAR USER FRAME 
OoOr8 cS) «6002)«C03)s«*S0—séF'O D 33 INSV RO, #UCBSV_TT_LEN, #2, ucasé AV PARLTYERS} eT Th TH 
1¢ OOF8 CS) «(02)—COsE3.s«OO2E 95 BBCS  #UCBS$V_TT_USERFRAME, ucasé_ TT a Sens) "Ls: AND SETUSER FRAME 
E 36 7"SPECIFYED THEN CONTINUE ON 
06 E1 0269 597 37$: BBC #TTSV_PARITY 
11 00F8 EB 98 UCBSB-TT PARITY(RS),40$ ; IF NO PARITY, USE 8 BIT 
F €0 O2eF 59 BBS #TTSVEIGHTBIT 
oc sf AS Fl 6 0 ucBs SDEVDEPENS RS), 40$ Use & BIT SIZE 
OOF A O02F4 6 BICB © #UCB BEI CB3B TT PARIT (RS) RESET CHARACTER FRAME 
: : Fo 6 : BISB#*X1 OLBshe ent ~PARITY(RS) : SET 7 BIT CHARACTER FRAME 
0 F : ge BRB 42$ 
OOF8 CS) «(18~—=OBB p : 3 ines BISB § #UCBS$M_TT_LEN,UCB$B_TT_PARITY(RS) ; SET 8 BIT CHARACTER FRAME 
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8 7 
river start/stop I/0 routine 1 -1984 AX/V cro V04-00 Pa 1 
ION ROUTINES gree Et BEi1F38 PAHCANS Bacco VOt OO, aans1 Pee (18, 
7 BBC ARE ALTDISPAR IRP$L_VAL5S(R3) ,41$ : CHECK FOR DISABLE PARITY 
BICL ucBsA TT PARERR,UCBS$B.TT ra + CLEAR DISMISS . 
BBC ati y DISPARERR, inst VAL5(R3) ,41$ DOES HE WANT i SET 
BBSS § #UCB$0_TT_DISPARE une: 8 TPA PARITY(RS),41$; YES THEN SET IT 
61 41$ BBS #TTS$V_TWOSTOP RPSL” VAL5(R3) 7438 ; DOES HE WANT TWO STOP BITS 
i$ CHP ut su TT_SPEED(RS) ,84 : SPEED <= 150 BAUD? 
14 43$:  BISB #UCBSM_TT_STOP,UCB$B_TT_PARITY(RS) + FLAG 2 STOP BITS 
615 a BRB 43 ante pis . _ 
elf ' - BICB. «=—- #UCBSM_TT_STOP,UCBSB_TT_PARITY(R5) : FLAG 1 STOP BIT 
613 : PROCESS FILL DATA 
621 46$: 
6 : CLRL = RO SSUME NEW VALUE IS 0 
BBC aT TSV CRFILL UCBSL DE pevDEPEND D(R5),50$; CR FILL ON? 
624 MOVZBL IRPSu “TT_PRMP : GET NEW VALUE 
625 BBS aTTS$V" ~CRFILL, R4, so3.° CHANGE? 
é é BEQL 6 IF NEQ EQL 0 THEN NO CHANGE 
627 50$:  MOVB  RO,UCBSB_TT_CRFILL(RS) ; RESET VALUE 
6 8 BNEQ F NEQ THEN K 
6 BBCC #TTSV_CRFILL,UCBSL _pevoebenn ),60$; SET 
630 60$ CLRL ASSUME NEW VALUE IS 0 
631 BBC #TTSV_LFFILL UCBSL DE DEVDEPEND (RS) 6 $; LF FILL ON? 
6 : MOVZBL IRPSu W"TT_PRMP : GET NEW VALUE 
6 BBS #TTSV ~LEFILL, R4, oss." ; + CHANGE? 
634 BEQL 75% ; IF NEG EQL 0 THEN NO CHANGE 
635 65$ MOVE = RO,UCBSB_TT_LFFILL(RS) ; RESET VALU 
é : BNEQ IF NEQ THEN OK 
6 f BBCC =: #TTSV_LFFILL,UCBSL _DEVDEPEND(R ),75$; SET OFF 
639 : CHECK FOR CHANGE IN STATUS OF MODEM 
641 75$: 
64g BBC aytsy pgnen R4,80$ ; NO CHANGE IN MODEM STATUS 
64 PUSHR Re REAR R4> ; SAVE VOLITAL REGISTERS 
644 MOVZBL mn AY ASSUME DEM INIT 
645 BBS aie MROBER, PitESL _DEVDEPEND(R ),- 
G46 ; IT 1S INIT 
64 ie MOVZBL #MODEMSC_SHUTDWN,R1 : NO, SHUT DOWN 
rat: " «BSBW  —s TRANS TION_NOCHECK : DECLARE MODEM TRANSITION 
630 POPR #*M<RO,R1,R2,R3,R4> 
6 j 80S: 
6 4 t enable or disable AUTO XON AND XOFF 
g 6 ; BISW so #TTYSM ahi XOF ENA ycasu TT PRICIER ); TURN ON AUTO XOFF 
6 BBS aTTSV_P ASSALL sucest L_DEVDEPEND(R5) ,84$;. 1S THIS PASSALL? YES THEN 
6 8 BBS #TTSV-TTSYNC DEV VDEPEND(RS) .85$; IF TT SYNC IS SET THEN LEAVE 1 
65 asf: BICw ATTYSA, PC YXOFENA, utesu _TT_PRICTLERS): TURN OFF AUTO XOFF 
of : COPY OVER PASSALL AND NOECHO TO CURRENT STATE 
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; OOF 6 cS 41 A 

00C4 cS 44 ao at 2000 8F 
48 AS 

06 44 AS (07 
00 00c8 C5) («07 


50 _ O0F2 
51 OOF6 CS FFSFFFFF 
51 F6 
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t 7 
iver start/stop 1/0 routine 16-SEP-1 :1 AX/VMS Macro V04-00 Pp 17 TT' 
ON ROUTINES greet EBs B2:19i0o EAFONS Paes Vet lO, wanes Pe (1g, v0 
4 BICB3 #*C<TTS$M_PASSALL!TTSM ECHO>, CBSL_DEVDEPEND(RS) ,R4 
5 INSV Rs tty S -PASALL W2 CtR NSERT IN STATE vecfor 
§ EXTV V ESC PEs eyces tSevDer pénbie ),R4 ; GET CURRENT SETTING 
INSV Re ev APE» AT > UPDATE IN STATE 
8 BBC ‘sutt’l atte e8y PASTHAU, in {. DEVDESND2 (RS), 98$ : IN PASS THRU MODE 
? 98$: 
f ; INIT THE UNIT TO CHANGE THE SPEED AND PARITY 
oh BSBW =s TTYSSET_LINE ; INIT LINE SPEED AND PARITY 
7 : IF MULTI IS SET THEN THE 1/0 MUST BE STARTED 
28 {00$: IF _NOT_STATE MULTI,110$ ; BR IF MULTI NO SET 
4 : BSBW ~ TTYSSTARTOUTPUT ; START THE MULTIPLE OUTPUT 
1 : CHECK FOR SET CHARACTERISTICS AND RETURN I0SB DATA 
: 110$:  MOVL vines IRP(RS) ,R3 GET CURRENT PACKET ADDRESS 
4 CMPZV 0_FCODE ,#IRPS$S Fook, ShPsu FUNC(R3) ,ATTYSC_FC_SETC; SET CHAR? 


F 
MOVL Uepsu TT_SPEED(RS) ,UCBSW_TT_DESPEE(R5); RESET PERM SPEED 


BBC #1T2$0_ADTOBAUD 
8 Solin Geos BEVDEPND {RS).115$ ; BRANCH IF NOAUTOBAUD 
0 UCBSW-TT_DESPEE (RS) SET PERMANENT 9600 BAUD FOR AUTOBAUD 
1 115$: MOVB UCBSB"TT~PARITY(RS) jucesh TT DEPARI (RS); RESET PERM PARITY | 
é MOVL UCBsB =DEGTYP PE (RD) 4 éa$a TT _pETY RESET TYPE AND WIDTH 
BICL3 #TT$m nOTE “UCB s USEVBEPERDERS) © iueast TT _DECHAR(RS); RESET PERM CHA 
4 MOVL UCBSL~ ~DEVDEPND SC J,UCBSL_TT_DECHA1(R5) ;OPDATE SECOND CHAR WORD 


BBC #TT2SV_ALTYPEAHD, IRP$Q_TT_STATE+4(R3), 1208; SKIP IF ALTERNATE 
TYPEAHEAD NOT yon ee 
BBSS #TT2$V_ALTYPEAHD ,UCBSL_TT_DECHA1(R5),120$ ; ONLY ALLOW SETTIN 
; AS PERM CHARACTERISTIC 


8 

9 

Gj 

9 

9 
9 
3 
: 
9 

0 1208: 

¢ : UPDATE NEWLY WRITTEN FIELDS WHICH ARE MAINTAINED 

33 IN BOTH THE LOGICAL ANY PHYSICAL 

5 MOVL  UCBS$L_TT_LOGUCB(RS) ,RO ; GET LOGICAL UCB ADDRESS 
6 MOVL —_UCBSL-DEQDEPEND (RS) ,UCBSL_DEVDEPEND(RO) ; UPDATE CHARACTERISTICS 

MOVL UCBSL-DEVDEPND2(R5) -UCBSL-DEVDEPND2(RO) ; “UCBSL TT DEVDP1 

; ROVE —_UCBSB“DEVCLASS (RS) .UCBSB-DEVCLASS (RO): CLASS. TYPE BUFSIZE 
0; THIS ROUTINE COMPLETES SET AND SENSE CHARACTERISTICS OPERATIONS 

i AND RETURNS STATUS VALUES IN THE 10SB 

18 po exit: 

14 MOVL, UCBSW TT SPEED=2(R5) RO; RETURN SPEED 

15 BICLS  #ecccOCRSR TT PARTY !0CB Bin 11 .000>16> .UCBSB_TT_PARITY-2(R5) .R1; 
1 ROVY = UCSB TT CRICL(RS) RT INSERT FILL 

1 MOVW = #SS$_RORAAL,R : SET STATUS 

18 BRY = TTY SOONE 

20 NOPRIV_EXIT: 


d 7 
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TTYSTRSTP - Terminal dr 
v04 START_10 Action 
50 gt bp +3 MOVL £558 WOPREV RO ; SET NO PRIV 
43F CLRL ; CLEAR R1 
02F1 1 rd | i BRW TTYSDONE 


We 

TTYSTRSTP = Terminal driver start/stop 1/0 routine 16-SEP-1984 02:18: AX/VMS Macro V04-00 Page 19 TT 
v04 START_10 Action ROUTINES 4 toes 92:48:38 ET TORVR. SREDTTVSTRGSP.MAR: 1 ° dd vO 

444 $ 5 

444 ; WRITE OPERATION 

444 : 

44 6O_wRITE: : 

444 ; Control only comes here in the case of half duplex writes. Full 

ren ; duplex writes use the TTYSWRISTARTIO entry point. 

53 35 A3 0 444 4° MOVL  IRPSL_SVAPTE(R3), R3 =; -Get addr of write block 
00000552'°EF F 48 5 PUSHAB TTYS$STARTOUTPUT : if write is started, control 
44E § : will return to STARTOUTPUT 
0040 3 rs BSBW WRTSTARTIO : if queued, control will return 
45 8 RSB 3; here. Return to caller. 


TTYSTRSTP 
voo-008 


ve 
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F 7 
"starts or queves a writ S-SEP-1986 Oc:19:09 ETTDRVR. SRESPIVSTRGT 


-SBTTL TTYSWRTSTARTIO = Starts or queues a write operation 


+ 
+ 


Functional description: 


If gelled from an FDT routine (or from EXESBRDCST), 
TTYSWRISTARTIO first raises to device IPL, and then calls the 
internal routine. ALL other code enters through the WRTSTARTIO 


entry point. 


If a write is occurring, the routine queues the write buffer. 
If a read is occurring, but the out ter header specifies 
ur Senereek throu h, the routine starts the write. 
If a read is occurr ng. ut no characters have been received 
yet, the routine starts the write. 
Otherwise, the routine queues the write buffer. 


To start the write operation, the routine writes the address 
of the buffer in UCBSL_TT_WRIBUF, sets and clears various 
state bits, and returns. 


To queue the buffer, the routine inserts the buffer address at 
the end of the queve unless the header specfies write- 

ores toreurs In $e latter case, the buffer address is inserted 
after the last wr te-breakthrough request in the queue. 


Returning from WRISTARTIO is odd. The routine assumes that 0(SP) 
is the address to return to if the write is to start now. 

If the routine instead queues the write, the routine pops this 
start-write address of the stack, and returns to the real 


caller. 

Inputs: 
R - address of the write buffer 
R - address of the UCB 


Implicit inputs: 


The write buffer consists of a header, and an optional message 
buffer. For erengeee’ messages, the message buffer is absent. 
TTYSL_WB_FR3 is 0 for a normal broadcast and 1 for and ANSI 
broadcast or one that specified norefresh. 


Outputs: 
If the bresdcost message is rejected, the TTYSL_WB_END field 
of the write packet is zeroed. 
RO - preserved 
R1 - scratch 
R - address of UCB state bits 
R - ; dress of buffer 
R - packet is started, address of IRP or 0 
- if packet is queued, scratch 
R5 - address of UC 


S| 


Page 
JTTYSTRSTP.MAR; 1 . (92) 


TT 
vO 


TTYSTRSTP - Termin 
v04 ST 


ore Cale ver start/stop 1/0 Seurtee 1 see 138% se 19: 38 yerlyes Be v04-00 nan:t Page (fd) 


Starts or queves a writ -§ P-1 TTDRVR SRE sfry YSTRSTP. 


Implicit outputs: 
Buffer may be entered in queue. 


fagt ‘tf operas ton is started 

ite L_TT_WRTIBUF = ad Ay 2" buf fe 

UCBSQ_TT~ “STAT « bit, and other bits from IRP are set 
rake a be canceled 

UCBSL_DEVDEPEND - oeTibes may be enabled 


Ge He Se Oe Oe Oe Be Se Se Se eee 


TYSWRTISTARTIO:: Start or c peus. write. 
MOVL 


i 
0- 
$4 
1 3 
51 00A0 9 yrs. TL_PHYUCB(R5),R1 ; GET PUCB 
\§ BEQL 3; NONE CURRENTLY exists 
55 1 MOVL R1,R ; SWITCH TO PUCB CONTEXT 
24 AS 14 TSTL Arise _WB_IRP(R3) 3; Is this a preedeget? 
oc 15 BEQL 208 3; YES, SPECIAL CASE 
18 10$: 3 Acceptable packer. 
FB9C' 1 BSBW TTY$LOCK 3; Raise to DI et states. 
00000532'‘EF 18 PUSHAB TTYSSTARTOUTPUT ; Set up return address to 
46A 1 3 start the output. 

25 46A 0 BSBB WRTISTARTIO ; Start or queue the packet. 
46C 1 RSB ; If packet queued, control 
46D § 3 returns here, so return to 
46D 3; caller. 
46D 4; INTERNAL BROADCAST PACKET. 
recs 5 ios CHECK FOR DISABLE 
46D : BITL errs PASSALL!- 3; Test for passall endfor 
46E 8 TTSM_ROBRDCST,- ; nobroadcast modes set in the 

44 AS 00020001 8F 9 UCBSC_DEVDEPEND(RS) ; term's UCB (Tonere” NOECHO) ‘ 
0 BEQL 1 : Continue if not set 
20 A3 47 1 25$: CLRL TTYSL_WB_END(R3) : Zero end address to indicate 

47A § ; failure to EXESBRD 

rf ts ? RSB 3; And return to EXESORDEST. 

478 S 3 LUCB CURRENTLY DETACHED 

478 § 3 COMPLETE THE WRIT 

ty 30S ASSUME IRPS$L_IOST1+4 EQ IRPSL_IOST2 

51 24 AS 478 § MOVL TTYSL_WB_IRP(R3),R1 : eT IRP ADDRESS 
F 7F re BEQL 25$ : INTERNAL BROADCAST, REJECT IT. 
53 5 481 4 MOVL R1,R3 ; GET IRP ADDRESS 
38 A3 4 4¢ CLRQ RP$L_10ST1(R3) INIT I0SB RETURN 
obboh 01 487 84 MOVW 86: #@SS$. RORMAL . IRPSL_ searseist 
"GF 44 JMP G*COASP 
1 ee 

31 Be? 

1B) r WRTSTARTIO: 3; Checks for start or queue. 
91 3 
4} 3 Inputs: 
91 : Re - address of state bits longword 


TTYSTRSTP inal driver start/stop 1/0 a -1984 02:18: AX/VMS Macro v04-00 Page 
V04 TTYSURT RTST Antio’® Starts or Queues a writ mi ets $e: 15:39 TTDRVR. SREITTYSTRSTP.MAR: 1 ° (8) 
91 ; : 3 R - address of write packe 
! : 3 R - address of the device ; ucB 
1 : : 3 Ptsr? - address to return if write is queued 
! : : (SP) == address to return to if write is started 
1 : o 
0 ge : PUSHR gg ; Save a register 
50 sa C 3 : MOVAB ue BSL WFLINK(RS),RO ; Get edaress of write queue. 
54 4A D 9 : MOVL TY t “UB: IRP(R3) ,R4 : Get age ress of 
9C B64 IF STATE = : If writing is ‘a a ress, 
9 B65 WRITE ,QUEVE_PKT 3; just queue the packe 
54 rf A : § ot : See if the packet hee’ an IRP. 
42 #1 A 1 BEQL Rh _PKT : If not, just start the packet. 
A : 8 IF _NOT_STATE = 3; If not in a read state 
O4A4 + 7p READ. START_PKT 3 92 ones and start she e packet: 
O4A 870 IF STAT 3 noecho read, no 
O4A 87 NOE CHO erent art 3 so start the “te 
EO O4AC 87 BBS #10$V_BRE 
35 20 Ad D4AE 87 IRPSW"F FUNCCRO) UeTaRT. PKT; Start if break thru write. 
AS DO 0481 874 MOVL UCBSLTSVAPTE(RS) RI ; get the read packet address 
3¢ Al =6BSsC(O4B B75 TSTW it ySve -R8 TXTOFF (R1) 3; and check if we have started typing 
1 048 {4 BEQL START 3 go start the packet. 
11 O4BA 87 BRB QUEVE- “LAST 3; Otherwise, queue packet at end 
BC {43 3; of queue. 
04B8C 87 
D4BC 880 QUEVE_PKT: 
“a BC 881 TSTL RG : If an IRP is associated, 
 . 8 : § BNEQ QUEUE _LAST 3 queue packet at end of queue. 
54 50 oO : se7 MOVL RO,R4 ; Make a copy of queue head. 
C B85 10S: 
3} 4 00 C : § VL TIv St WB_FLINK(R4) ,R1 ; Get first queue entry. 
0 1 OF C8 é CMPL ; See if at end of queue. 
r \3 C : 3 BEQL SUEUE_L : If yes. put at end of queue. 
24 A1 OD i, & TSTL TTYSL— “B® TRPcR1) 3; Else, see if this onary has an 
cE ; 3 pqece tated IRP 
09 «12 ; 9 BNEQ INSERT_PKT 3 a. SAL branch te insert 
; 3 ad fore it. 
54 51 O D 398 MOVL R1,R4 3 Eoecies, go bs to next 
a 4 + BRB 10$ 3 entry in queue. 
D +4) QUEUE _LAST: ; Queue at end of queue. 
54 04 a0 00 4 y MOVL TTYSL_WB_BLINK(RO),R4 ; Get back pointer. 
4 43 INSERT_PKT: 
63 O€ D : INSQUE TTYSL_WB_FLINK(R3),- ; Insert new packet in the 
s 0B : TTYSL_WB_FLINK(R4) 3 queue. 
1 BA pe s«G § POPR #*ncRO> ; Remove saved register and 
3} 8 D bf : MOVL 7? R1 3; get queued address 
E ( E 904 ADDL #8, SP > clean stack 
6 ce 905 Jap (rf) 3; return to queued address 
Es : $ START_PKT: 3 ptert the packet 
0004 CS 553) iO sCME R3,UCBSL_TT_WRTBUF(RS) ; Point to packet from UCB. 
4 : SET_STATE cert te 3 eee the write state. 
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ver start/stop 1/0 lection 
= Starts or queves a writ 
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TSTL = RG 
BEQL 0$ 
BISL RP Q.11 STAT 
BISL RPSQ-TT-STATE+4 (RG 
Gee HHONPattenge 
TRS FUNC TRG) 2] 10$ 
MOVL § UCBSL_TT_LOGUCB(RS),R 
BICL  #TTSM=MBRDSABL,UCBSL_ 
BICL  #TTSM~MBXDSABL,UCBSL— 
BBC #10$v_C mes Tee 
TRPSUnFU UNC(R4) ,30$ 
CLR_STATE - 
GTRLO 
BRB 0$ 


a broadcast packet. 


Gt FIVRSRECHBRBD on 
oki EREFRSH> 

POPR #*M<RO,R1> 

RSB 


TEsath its i |ke. wr tg stat 


"SSE=1986 82:19:09 UAtoRUA.Saeservstaste.man:t 9% (78) 


f this write does Pf have an 
don't ore, oA jelds. 


zst wr ee stat bits. 
Set P for completion. 
ranc enable-mailbox 
$s not requested. 


ET LO jen ae agent ss 
a He ; gtews MAILBOX DISABLED +44, 


vvuo 
mm 


; Branch if cancel control-0 
; is not requested. 
; Clear control-0 state. 


; And start the output. 


Indicate block free to fork (for DMA) 
Branch if ANSI broadcast or norefresh 


Set refresh read 

Go output buffer. 
Restore saved register 
and queued address. 

And return to caller. 
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i «SBTTL TTYSSTARTOUTPUT = START OUTPUT OPERATION ON UNIT 
46 54+ 
4 ; TTYSSTARTOUTPUT = START OUTPUT ON UNIT 
; FUNCTIONAL DESCRIPTION: 
; THIS ROUTINE IS USED TO INITIATE OUTPUT ON A UNIT. THIS OPERATION STARTS 
+ THE FLOW OF DATA EV VEN IN THE CASE OF READS. THE ACTION IS TO TEST THE 
; STATE OF INTERRUPT EXPECTED. IF AN INTERRUPT IS EXPECTED, THEN NOTHING NEED BE DON 
4 ; BECAUSE A SUBSEQUEN INTERRUP WILL CONTINUE APPROP. WITH THE CURRENT STATE. 
5 : IF NO INTERRUPT | EXPECTED. THEN TTYSGETNEXTCHAR ROUTINE IS ENTERED TO RETURN 
$ ; THE NEXT CHARACTER(S) FOR THE UNIT. THEN IF AVAILABLE THE PORT DRIVER 
3 ; STARTIO ROUTINE IS ENTERED. 
8 3 THIS OPERATION IS IDENTICAL TO THE OPERATION OF AN OUTPUT READY INTERRUPT 
0 : INPUTS: 
4 ; Re = ADDRESS OF THE UNIT STATE VECTOR 
36 ; = UCB ADDRESS 
3 3e8 ; OUTPUTS: 
5 966 : 
5 96 : NONE 
5 968 
5 36 fTYSSTARTOUTPUT: : Sues OUTPUT 
10645 01 €0 05 3 p BBS #UCBSV_INT,UCBSW STS(R5) 1 08; ILEAVE HERE IF INTERRUPT EXPECTED 
50 0118 C5 b 5 7 MOVL -UCB$L_TT_PORT(R5J,RO THE PORT'S VECT OR TABLE ADDRESS 
FAC1" 53¢ 976 BSBW TTYSGETNEXTCHAR : GET NEXT CHARACTER FOR UNIT 
03 0108 ¢5 F 53F 097 BLBC UCB$B_TT QUTYPE(RS) , 1008; LEAVE IF NOTHING TO OUTPUT 
00 80 17 0544 97% JMP @PORT-STARTIO(RO) : START OUTPUT ON LINE 
05 0547 975 1008: RSB ; RETURN 
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: a4 ~SBTTL TTYSGETNXTWRITE = Start next write or restart read 
? 7 i++ 
4 Functional description: 
4 : This routine gains control at device IPL on return from the 
4 4; VMS fork queuing routine. The routine tries to restart a 
4 5; suspended but now active read, or to dequeue and start the 
4 § ; next write request vis URTSTARTIO. 
4 8 ; The routine olveys resuens to the caller of of ,[TYSYRtTEDON 
4 3 BR a tS sy fl or BROC n TTYCHARO. Th ler is usually 
4 990 ; pote tl CHAR, so set UR "Seabed causes the. pot nal to go on 
? 44 3 echoing and outputting. 
54 $38 ; Inputs: 
54 995 ; O(SP) = address of the UCB state vector 
32 4 : 4(SP) = address of the UCB 
22 44 : Outputs 
54 1900 ; R - address of the UCB state vect 
548 1 3 3 R - address of a write buffer if writing is to begin 
3? ! 8 3 R5 - address of the UCB 
bee ! : : The 2 named inputs are removed from the stack. 
Beth 1888 F- 
548 10 3 TTVOCE THEY VRITEs) 3; Check for a new write 
24 BA 0548 1 POPR #°M<R2, R5> 3; Restore UCB state ps and 
54A 1 1? 3; UCB address. 
54A 101 IF NOT Stal ~ 3; If not in a read state, just 
54A 1 1 D,10$ 3; branch forwar 
54E 10% IF “state's - 3; If noecho, don! t block writes 
54E 1014 NOECHO, 10$ 
oocc cS «bts 0552 «1015 CMPL = UCBSL_fT_WFLINK(RS) .- 
00D0 C5 556 1 1 UCBSLTT=WBLINK(RS) 3 queue engty? 
OA 13 0559 101 BEQL : Branch if y 
53 o0occ 3 D 558 1 3 MOVL UCBSL_TT_WFLINK(RS),R3 ; Fetch address of next irp 
9 € 560 101 BBS #10$V~BREAKTHRU,- 
09 30 A 36 1 a IRPSUCFUNC(RS) {0s ; Start if break thru write. 
53 AS OD 1021 5$: MOVL UCBSL7SVAPTE(RS) ,R3 > get the read packet address 
3C As) BS C0569 1 : TSTW TTYSWTRB_TXTOFF (AS) > see if any input 
: ee ; has been received. 
15 12 2 ; 1 : BNEQ 208 :; If yes, go restart read. 
28 \ § 108: IF_STATE WRITE,30$ ¢ if ve are writing then don't get the 
3 next wr 
27 1 8 ; Otherwise, look for a write. 
53 OOCC DS OF 72 1 REMQUE CBSL_TT_WFLINK(RS),R3 ; Get a new write buffer. 
e Ww @ar } ? 0 ; Branch if no buffers exist. 
O0000S86'EF 9F sr ! PUSHAB : sae 8. awrite start return 
FFOF 30 OS57F 1 : BSBW  WRTSTARTIO : Stare the write. 


TTYSTRSTL coinet driver start/sto ro fine 1 3 ~~ AX/VMS Macro v04-00 Pa 
v04 Tr GE TNX tuaite - Start nex 1/9 or re 1382 ve 18: 39 YT TORVR. SRCITTYSTRSTP.MAR; 1 ” (3; 
1 ¢ RSB ; Return to GETNEXTCHAR, 
i 208: 
FA7A' 30 1 : ; BSBW TTYSRESTARTIO ; Restart the read, if any. 
1 § 30$: ; Joint read/write return. 
6 1040 RSB 3; Return. 
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-SBTTL TTYSWRITEDONE = Complete a write operation 
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TTYSTRSTP - Term 
V04=000 TTYSWR 


——. 
—3 
o- 
oO 
za 
ms 


p++ 
TTYSWRITEDONE = WRITE OPERATION DONE 
FUNCTIONAL DESCRIPTION: 


This routine creates fork process to complete the write, and 
checks for another write packet to start up. 


; INPUTS: 
Af = ADDRESS OF THE UNIT STATE VECTOR 
R5 = UCB ADDRESS 
TTY$W_WB_STATUS = status of operation 
; TTY$W_WB_BCNT = number of bytes transferred 
OUTPUTS: 
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R2,R5 ARE PRESERVED. 


TTYSWRITEDONE: : ; Complete write operation. 


ts 


This routine used to start by clearing a whole raft of s its. 
TWRITE. 


tate 
I only turn off write-related bits, and I do that in TTYS$GETN 
The bits I no longer modify are: 


READ, DEL, XON, EOL, PROMPT, CTRLR, NOFLTR, ESC, ESC_O, and 
BADESC 


b 
xX 


san, PUSHR #*M<R2,R5> 3; Save state and UCB address. 


MOVL UCBSL_TT_WRTBUF(R5S),R3 ; Get address of write buffer. 


| NEW LINE MODIFIER 


> > \& YS ©0000 000000 09 0d Go Gd Cd Cd Cd Cd CD CD CD CD CD CD CD 


> G2. 00 Cd Cd Cd CD Cd Cd Cd CD CD CD CD. 0D CD CN Cd. CD CD CD GD CD CDCD0D 


WOOO OOOO O09 69 0969 69 69 69 09 00 SIN NSD DD DDD DDD De TUTTI Se BS ES 


POA AA ap a a aa A Ab Ab Ab db Ab Ab Ab db hb db db db hb db Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab AD AD AD AD AD AD AD AD AD AD AL AL AL AL AL AD AD AD AL AD AL ALTA 

me me a ee ed a ed dd = od td ot = 8 = = 3 2 2 8 8 a 

DNA MAE WIN FO OD NIA MNES OO NAN EWN SO ODO NAUN EWN O OO NAN EWI O ODNOAUE 
* o 


: 
0 
24 =««éBB 
53 0004 ¢5 00 
544 AS 9 
C 
07 20 A4 OA 1 


8 nov {TYSL_WB_IRPCRS) AG ; Get address of associated IRP. 
E BBC #IO$SV NEWLINE, IRP$W_FUNC(R4),10$; NO NEWLINE THEN DON'T ADD A THING 
am SET_STATE <SERDLFSKIPLF NLS 
2 CLR_STATE - ; Clear the write bits. 
syelis WRTALL> 
9D AF OF PUSHAB TTYSGETNXTWRITE ; Return address after queuing fork 
WRITEPOST: 
3 AS 90 MOVB UCB$B_FIPL(RS),- ; Set up fork IPL in the buffer 
A3 TTY$B~WB_FIPL(R3) > block. 


Nn 7 
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yous008 TTYSWRITEDONE = Complete a orite operat mt ety ys 83:15:89 YT TORVR. SREDTTYSTRSTP.MAR: 1 wie (3) Ta 
54 244A D BO 1099 MOVL TYSL_WB_IRP(R3) ,R4 ; Get address of associated IRP. 
8 iF 260 9 9 BNEQ $ 3 one there then cont nue 
9 Be 11 MOVB #I1PL$_QUEUEAST,- ; for broadcast fork to iplé 
” : D4 BA 1 5 irl 1 G-¥8_FIPLCAS) irp th to fork t 
clr =(s 3; no ir n no pr 
of f 38¢ 1 ks gle 7 p o irp then no process to fork to 
OC AS 62D SCQSBE «11 ‘ PUSHL IRPSL_PID(R4) 3; FORK ON THE PID OF THE IO OWNER 
+ et »? $C) 11 : 7$ MOVL R3,R ; Setup fork block address. 
QOOOOOOO'EF 1 ate 1 JSB TTYSSYNCH 3; Create a fork process. 
CA 1110; 
sth 11 ; This is the write completion fork process. Registers are as follows: 
SCA 118 : R4 - address of IRP 
SCA 1114; R5 - address of write buffer (TWP) 
Bek Ne 
53 54 0 Baca 119 MOVL R4,R3 ; Need IRP in R3 for 1/0 post. 
a | O5¢D 1118 BEQL ©=—-:100$ 
act 1 6 .IF DF CAS$_MEASURE_IOT 
4 i ¢ : ACCUMULATE STATISTICS ON NUMBER OF CHARACTERS AND I/0S TO TERMINALS. 
Bate i : , BSBB TTSTATS 3; CALL STATISTICS ROUTINE. 
OSCF 11 § -ENDC 
at 
Mat 11 : ; NOTE: IRPSL_MEDIA = IRPS$L_IOST1 
Beck 1 ? : NOTE: terminal position is O-based; interface position is 1-based 
SCF 1132 ° 
54 55 0 Oser 11 : MOVL R5,R4 ; Put buffer address in R4. 
38 AS -3C «(0502 «1134 MOVZWL IRPSL_MEDIA(RS) .~ ; number of Lines output for the 
C AS 505 1135 IRP$L_IOST2(R3) ; write Q10, and zero other values 
¢ A& DO O5D7 11 § MOVL TTY$W_WB Si aT ys (aa). 3 move status and count of bytes 
8 AS pA 1) IRP$L_10ST1(R3) ; transferred into I0SB 
1C Ad OD 50C 11 ; MOVL IRP$L_UCB(R3) ,R5 § Regein LUCB address. 
55 OOA0 C5 OD 5EO 1140 MOVL UCBSL-TL_PHYUCB(RS) .RS ; Switch to Physical context 
1 6 «CY 5E5 1141 BEQL ; Disconnect has occured! 
00r¢ CS «BT CéOQSE 1146 CMPW UCBSW_TT Cums 8 (83) «* ; Is cursor marker beyond the right- 
42 AS 5EB 114 YEBSU_LDEVBUF S1Z<R ) ; hand edge of screen? 
09 1€ OSED 1144 BGEQ ; Branch if cursor has gone too far. 
oore 5 Al OQSEF 1145 ADDW UCBSW {T CURSOR ERD) - 3; Else return cursor column position, 
3E A 1 5F3 1168 #1, IRPSL~10ST2+2(R35 ; adjusted for zero offset, in 10SB. 
11 36 114 BRB 14§ : Continue building 10SB. 
42 A BO O5F 1163 12$ MOVW Yeo ee DE VOUE STZ IRS) «= 3; If necessary, return cursor column 
3E A SFB 114 IRP$L_10ST2+2(R3) ; position in [OSB as right-hand edge. 
OOFE f 81 O5FD V3 14$ ADDBS UCBS$B_TT_LINE(R5S),- i; move Line position into I0SB 
3F AS OO 6 } 1 #1, IRPSL“1OST2+3(R3) 
4 AS BO 0604 11 : 15$ MOVW TTY$W_WB S1ZE CRA) «= ; Move size of buffer into IRP 
hn ° 7 1154 Hs ee: ) 3 to record quota used. 
55 CA DO 9 1155 MOVL IRP$L_UCB(R3) .R5 ; Restore logical UCB address 
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TTYSTRSTP = Terminal driver start/stop 1/0 routine 16-SEP-1984 02:18: AX/VMS Macro V04-00 Page 29 
v04- TTYSWRITEDONE = Complete a Gr te operati mit Be: 18:39 LT TORVR. SREITTYSTRSTP.MARS 1 ’ (iB) 
58 AS 32 oi $00 11 § CMPL 3 UCBSL_IRP(R5S) ; Is this the current write 
6 5 ! 1] BEQL 30$ ; blocking the i/o queue? 
00000000'GF 17 } 1188 20$: JMP G*COMSPOST : Full duplex: complete write 
81 118) 30$: ; Half Guoten: 
50 38 A3 7D 0619 1196 MOVQ IRPS$L_MEDIA(R3) ,RO 3; Load IOST1 and I0ST2 in RO,R1 
61D 116 REQCOM ; Complete request and get next 
Re Wee 1008: 3; entry in system queue. 
53 0 AS 09 6 1196 ‘ MOVL TT st WB_END(RS) ,R3 ; GET THE ADDRESS OF THE LAST CHARACTER 
. oe 8 5 116 JMP @TTYSC_WB_RETADDR(RS) =: Weng fork process to gain control 
o2eA 1168 ; string for fork process use. 
Ow2A 1192 
Ow2A 1170 
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TTYSWRITEPOST = QUEUE A WRITE COMPLETION 
FUNCTIONAL DESCRIPTION: 


THIS ROUTINE FORKS ON A al TO COMPLETE A QUEUED WRITE OPERATION 
BOTH HALF AND FULL DUPLEX 


INPUTS: 


R4 = TWP ADDRESS 
RS = UCB ADDRESS 


UCBSW_BOFF = STATUS OF OPERATION 
OUTPUTS: 
RO,R1,R2,R3,R5 ARE PRESERVED 


— Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge 
: + 


DDD. DDD DD PAA AAA AAA AA AAA AAA AO 


PAA AAAPIPIPIPIPIPIPINIPYPIPIPIPYINIPIPIPIPPINIPIPUPIPIPININY 


VVIOPNVN "OPPS YP Y>YrYr>rrrrr,rr,rr>r>r>r>r,rrrrry 


SSSSSSSSS3S33S3520L.EE EEE. 


TYSWRITEPOST:: 
28 8B PUSHR #*M<R3,R5> : SAVE REGISTERS 
53 54—CO«éie MOVL R4,R3 : TWP ADDRESS 
3A A3B4 CLRW SCOTTY 8 WB BENT (R3) t NONE TRANSFERED 
C a5 «BO MOVW UcBsu- “BOFF (RS : SAVE COMPLETION STATUS 
28 a3 TTY$W WB STATUS (RS) 
FF71 30 BSBW wWRITEPOST : QUE THE FORK 
28 «BA 06 POPR #*M<R3,R5> 
05 06 RSB 
06 
06 
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dD 8 
“QuEUE'A WRITE COMPLETION S-SEP=19B6 06:19:09 LTTDRVR. SRESTTYSTASTP.MAR;1 2° (31) 
~IF DF CAS_MEASURE_IOT 


Subroutine to accumulate statistics on the number of 
the number of characters read and written to terminals 


TTSTATS:BL 


—Ooen~ 


BC GPHSSGL DOSTATS 408 —; IF FLAG SET. BYPASS STATISTICS CODE 
ROVZuL 1RPSW_BCRTCR ),RA ; GET # CHARACTERS TRANSFERRED. 
DIVLS #5,R17R ; STATISTICS ARE KEPT IN INCREMENTS 
; OF 5 CHARACTERS. 
CMPL = #9,RO ; LAST ENTRY IN TABLE IS FOR 1/0S 
: OF >= 45 CHARACTERS. 
BGEQ 


OVL  #9,R0 
10$:  CMPZV ~—- #IRPSV_FCODE ,#IRPSS_FCODE, IRPSW_FUNC(R3) ,ATTYSC_FC_READ 
; CHECK"IF JUST FINISHED AREAD OR WRITE. 

BNEQ 208 : BRANCH FOR WRITE 
: COMPILE STATISTICS FOR READ 
INCL  G*PMSSAL_READTBLCRO] =; INCREMENT APPROPRIATE RANGE. 
INCL.  G*PMSS$GL~ TREADS : INCREMENT READ COUNT 

ADDL2 Ri ,G*PMSSGL_READCNT : INCREMENT TOTAL COUNT FOR CHARACTERS 
: COMPILE STATISTICS FOR WRITE 
20$: INCL  G*PMSS$AL_WRITETBLCRO] =; INCREMENT APPROPRIATE RANGE. 
INCL  G*PMS$GL~TWRITES : INCREMENT WRITE COUNT 

ADDL2 R1,G*PMSSGL_WRTCNT : INCREMENT TOTAL COUNT FOR CHARACTERS 
40$:  RSB : RETURN TO CALLER. 


~ENDC 


SOWA NEW $$ O ODNAUES WN OOONAUE Ur. 
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TTYSTRSTP rminal driver sta 1/0, routine 16-SEP=1 :1 AX/VMS v04-00 Pp TT 
you2008 TTYEREADONE - READ OPE Tioh D0 g- -SEP- =}382 82: 18: 38 YTTORVR.€ R.S Try YSTRSTP.MAR; 1 ~~ (33) vO 
; .SBTTL TTYSREADONE = READ OPERATION DONE 
TTYSREADONE = READ 1/0 OPERATION DONE 
FUNCTIONAL DESCRIPTION: 
THIS ROUTINE IS ENTERED TO COMPLETE THE CURRENT READ OP ERA 
THE ACTION IS TO RESET THE STATE OF THE UNIT TO REFLECT 
FORK ON THE IRP TO COMPLETE THE PROCESSING. 
INPUTS: 


Re = td pt OF ~ UNIT STATE VECTOR 
= UCB A DORES 


UCB$W_BOFF = STATUS WORD 
UCBSW"BCNT = COUNT OF TRANSFER 


IRP$L_MEDIA(CURRENT PACKET) = TERMINATOR AND TERMINATOR SIZE 


THE CHANGE AND TO 


Ge Ge Ge Ge Ge Ge Ge Ge Se Se Se Se Se Se Se Se Se Ge Se Se Se Se Sete Se 


VIVOOVUVOVTVUIVTVTVTVTVCVTVTVTVTVTVTVVTVTVTVTVTCTCT0C0C0"8 


OUTPUTS: 
0 
8 NONE 
8 enable lsb 
TYSREADONE : : 1/0 DON 
03 44 AS 12, 3] ; Bac #TT8v READSYNC ,UCBSL -DEVBEEND AS) ose BR IF NOT READSYNC 
68 AS 02 AA ' 4 10$:  BICW  #UCBSM_TT_TIMO,UCBSW_ pevéTsins)s CLEAR TIMEOUT ENABLED 
0 4 : SET UP ERRORS ON ESCAPE SEQUENCES 
4 


IF NOT_STATE ESC,1 NOT ESCAPE THEN BR 


7C AS O1FC BF 80 mo0W ~ #SS FARES Care ucasw pot (RS); ASSUME PARTIAL ESCAPE SEQUENCE 
54 78 AS OD MOVE ucBsC TE(RSS,R GET THE ADDRESS OF THE READ PACKET 
53 38 ASO MOVL UCBSL~IRP(RS).R + ADDRESS CURRENT PACKET 
530 OSA A 38 MOVZBW If st PeetdAte(Rs) : MAKE THE ESCAPE SEQUENCE COUNT A WORD 
so aa O53COA UBW “retort the) ; SUBTRACT OUT TERMINATOR LENGTH 
15$: 1F_ NOT State 8 ESCAP — SYNTAX CORRECTS. 
70 aS 63C.— OBO molw ~ #SsS "BADESC 208 UCBSW _BOFF CR ); SET STATUS FOR IMPROPER ESCAPE SEQ 


; RESET PASSALL AND NOECHO IF MODES 
20S: 


PDPDAEDP PADD DDD AAA DAP PDA A AAA AAA AAA AAA AAA OO 


SS SS SS S555 220 sw mw sw39 OOOO 


-IF DF CAS_MEASURE_I0T 


a a a ee a ee ee a ee 
WOOO WO OO O0969 09.0909 69 09 G9 G9. 09 SI INI D DP DPD DADA DTI ES Be 


DNA DAE WN @§ OOD NA UNE WIN OS OD NAMNE WIN 9 OO NAME WAIN 2 CO OD NAN EW | CO ODNOAOUE UP 


06 BLBC G*PMSS$GL_DOSTATS 258 FLAG ‘SEI: 8 BYPASS STATISTICS CODE 
BBC #TTSV_PASSALL,UCBSL =pevobENp (R5) T PASSALL 
INCL G* PASSCL “PASSALL ; INCREMENT Piseaut 
.ENDC 
54 64 A5 FC BF 8B 25$ BICB3 #*C<TT$M_PASSALL! TTSM_NOECHO>,UCBSL -DEVDEPEND(RS) R4; 
04 A2 02 02 ig INSV R4,#TTYSO_ST_PASALL ,#2,4(R2) ; RESET PASSALL AND NOECHO 
4 4G A 3 €E 0677 EXTV #TfSV_ESCAPET#1,UCBS$L_DEVDEPEND(RS).R4 : GET CURRENT SETTING 


F 8 
TTYSTRSTP rminal driver start/stop 1/0 routine 16-SEP-1984 :1 AX/VMS Macro V04-00 Page 33 
you2008 TTYEREADONE «READ OPERATION DONE g-8 SEP- =}382 ve 18: 38 YT TORVR. SRCJTTYSTRSTP.MAR:1 (33) 
04 a2 01. 0B 54 7D 1299 INSV RG, ATTYSV_ST_ESCAPE,#1,4(R2) ; UPDATE IN STATE 
04 48 AS 12 £9 ; 1 BBC attosy. PASTHRU,UCB Tat _DEVDEPND2(R5),98$ : IN PASS THRU 
1 SET_STATE PASACL 
: ! 98$: 
? C 1304 CLR_STATE - ; Clear state bits relevant to 
C 1305 <READ ,DEL,EOL,=- : a read (this does not include 
6 pag 6 PROMPT, CTRLR, NOFLTR,= the write bits). 
¢ 4 ESC, ESC_0,BADESC PRE, TERMNORM, ~ 
68C 1 : REFRSH, EDITREAD. SKIPCRLF ,RDVERIFY,ECHAES,- 
f 1 MULTI RECALL OVERSTRIKE, DITING QUOTING. BACKSPACE> 
53 58 aS D 1 : MOVL UCBSL_IRB CR 5 8 : apone ss ¢ CURRENT PACKET 
4 AS OD D 131 MOVL  UCBSL“SVAPTE (AS) ,R4 GET ADDRESS OF Pri READ PACKET 
012865 (SAAC 6a 1 MOVE TTYSW>RB_CPZORG(A4) ,UCBSB_ ue “fay Cont tno ECAUSE 
3c ASCO A 00 6A7 1314 MOVL IRP$L_PID(R3) IRPSL TT tér RIC SAVE DATA FoR FORK BLOCK 
AC A AS 90 O6AC 1315 MOVE  IRPSB-RMOD(R3S,IRPSO_ TT PRMPTIRS); 
A AS 690 40681 1 1 MOVB UCBSB-FIPL(R5),IRPSB- “RMD ¢ CR) Set FORK IPL 
9 A CaS BO 0686 131 MOVW UCBSW~BOFF (RS). IRP$W~BOFF (R3) : Seve STATUS 
As. SC AG OB 1 18 MOVW TTYSWTRB_TXTOFF(R4), TRPSW _BCNT(R3); SAVE TRANSFER SIZE 
$4 88 oC 131 PUSHR #*M<R2,R5> : 
55 ; D0 C2 1320 MOVL  R3,R5 : SET UP FORK BLOCK ADDRESS 
53 10 A D 06C5 1321 MOVG IRPSL_AST(R3),R3 + GET PARAMS FOR FOR 
FE7B CF «OOOF:«06C9 1 g PUSHAB UATTYSce TNATUALTE > FORCE RETURN TO RESTORE UCB ADDRESS 
3c AS) «DD «(06CD 1 PUSHL IRPS$L_TT_TERM(RS) + USE THE PID OF THE ISSUING PROCESS 
00000000'EF 16 $00 4 JSB TTY$ SSTNCR : CREATE FORK PROCESS 
606 $ : 1/0 DONE FORK PROCESS 
53 55 00 eng : MOVL RS, R3 ; RESTORE PACKET AND UCB ADDRESSES 
609 0 IF DF CA$_MEASURE_IOT 
609 : SACCUMULATE STATISTICS ON NUMBER OF CHARACTERS AND I/OS TO TERMINALS. 
609 4 BSBW =~ TTSTATS : CALL STATISTICS ROUTINE. 
SR RES te ane 
55 1C Ad D D9 1 : MOVL IRP$L_UCB(R3) .RS : GET LUCB ADDRESS FROM IR 
55. OOA0 CS oD DD 1 MOVL CBS$L-TL_PHYUCB(RS) RS: SWITCH TO PHYSICAL USB CONTEXT 
0 30A 6€2 1340 MOVL IRPSWTBOFF(R3) ,RO : GET STATUS AND TRANSFER SIZE 
4 AA £6 1341 MOVZBW IRPSL-MEDIA+ (RS) RG : GET THE BYTE COUNT OF THE TERMINATOR 
203. 54 A EA 1 4¢ ADDW = soRG {RP BENT (R ) : CALC TOTAL TRANSFER SIZ 
4 2Ca3 D EE 134 MOVL  IRPSL_SVAPTE(R3) ,R4 : GET ADDRESS OF THE BUFFER BLOCK 
120 a3 OF f Fo 1344 BBC #IOSV"EXTEND, IRP$wW_FUNC(R3) ,27$ 
9A3 FF BF 0 F? 1345 MOVB #*XOFF, IRPSL_MEDIATI(R3); INFORCE R SER RYED FIE FIELD 
17 40 a3 OA FC 1 46 BBS #TTYSVST_ROVERIFY, IRPS$Q_TT_STATE(R vf DO IT FOR READ VERI 
1 30 A4 134 MOVZWL TTYS$W_RB_CINOFF(R4S.R1 3 get the otf gee thie Eherenter 
CAA 51 7 3 134 ADDL RI, TTYSL-RB_LIN(R4) : ADD IN THE OFFSET TO GET AN ADDRESS 
1 3C Ad 709 134 MOVZWL TTYSW_RB-TXTOFF(R4),R1 ; GET THE LENGTH OF THE REA 
51 64 CO O70D 135 ADDL TTVSLRB-TXT(RG) «RI : AND GET THE ADDRESS OF THE LAST CHARACTER 
1° 2C Ab f 710 1351 SUBL ‘TTYS$L RB-LIN(RA) RI : SUBTRACT OUT THE ADDRESS OF TH 
As. 5 714 1 MOVE RI,IRPSL-MEDIA+3(R3)  ; LAST CHARACTER AND THIS IS THE 
718 1 : OFFSET FROM THE END OF THE READ 
718 1354 : TO THE LAST POSITION. 
51 38 a3 00 0718 1355 a7$ MOVL  IRPSL_MEDIA(R3),R1 : SEY TERMINATOR DATA 


TTYSTRSTP - Terminal driver start/sto -SEP-1984 1 X/VMS Macro v04-00 e 
v04= TTYSREADONE = READ OPERATION DONE "gr fF =}382 Be 18: 39 HY TTDRVR.SRCITTYSTRSTP.MAR; 1 ng (33) 
CAs 3C 3 p 7 ( 1 6 MOVL  IRPSL_TT “Pama ta IRPSL PL PID(R3); RETURN IRP DATA 
A ac A 721 1 MOVB IRP W"TT“PRMPT (R35 RMOD(RS): 
AS O08 AG BO 0726 1 : MOVW TY$W-RB-SIZE(R4) [rray, BOFF(R3): IT QUOTA 
F4B AS OC CE , BBS #TT2$0_EDI TING, UCBSL “DENDEPNO GRE) 4 "408 ied EDITING THEN 
730 1361 READSDONE: 
4F 48 AS) OF «6EO «(0780 1 #TT2$V_FALLBACK,UCBSL -DEVDEPND2 (RS), 200$; DO WE HAVE TO CHECK 
, 3 END_FALL: NPUT Facebark 
735 1365 TTYSDONE: 
55 1C AS 00 0735 1 : MOVL  —IRPS$L_UCB(R3),R5 : RESTORE LOGICAL UCB ADDRESS 
, } REQCOM : COMPLETE REQUEST 
73F 1 § : SAVE THE COMMAND IF WE ARE IN EDITING, THE READ WAS SUCESSFUL AND 
f F 29 : IT WAS NOT A NOECHO READ 
022¢ BF OS 81 rst te hos: cnPu terest #SS$_TIMEOUT ; ALLOW TIMEOUT ERRORS TO BE SAVED 
E7 iF} 246 1374 BLBC ONE READ NOT SUCCESSFUL THEN DON'T SAVE 
44 05 03 D3 0749 1375 428:  BITL athe SNOECHO!TTSM_ passat, UCB$L_DEVDEPEND(R5);DON'T COPY ON 
FI 12 0740 1 id: BNE READ ACL OR NOECHO 
0000004¢ af D rar , BITL FTIVan ST OE CHO!TIySH si st “Cea Ge Tenge ST mete . 
o7 12 533 1 ig BNEQ READ SSDON : OR NO FILTER THEN DON'T SAVE THIS BUFFER 
F 8B 759 1 80 PUSHR #*M<RO R R2,R3,R4,R5> +: SAVE THE REGISTERS OVER THE MOVE 
50 3C A4 g 738 1381 MOVZWL TTYSW_RB_TXTOFF(R4S,RO : GET THE L 
| 13 86 EQL ~=s«35$ : TF THE LENGTH IS ZERO THEN DON'T SAVE 
100 8F D1 0761 1384 CMPL  #TTYSK_TA_RCLLEN,RO : DOES ALL THE DATA FIT? 
“> oooootao % eee 13 BSED Steen: frag That faa a ee 
51 ,, O08 5 D i$ 1 3 308 MOVL  UCBSL_TT_TYPAHD(AS) ,R1 ; GET THE ADD RESS oot THE TYPEAHEAD BUFFER 
9 60 776 1 § MOVW RO, TT TS TA_RCLSIZ(A1) : KEEP THE IZE ¢ RECTLY 
18 Al 00 wy 7A 1 MOVC3 RO, @TTYSC_RB_TXT(R4) TTv$A TA_RCL(R1) HOVE THE DATA IN 
F BA 780 1390 358: POPR #*M<RO,R1-R27R3,R4,R5> RESTORE THE REGISTERS AND 
AC 11 0782 1391 91S: BRB READSDONE 
Fee 1308 
784 1394 : INPUT FALLBACK TABLE IMPLIMENTATION 
Tee 1898 S008 
3F 784 1 38 PUSHR #*M<RO,R1,R2,R3,R4,R5> SAVE THE REGISTERS OVER THE MOVE 
51  00000000'FF 06 , 6 38 HOVL Hi “INPFALL,R1 Y INPUT FALLBACK 
WL TTYSW_RB_TXTOFF(R4) RO; GET THE LENGTH 
sey 03 i 735 i grat 2 R an _RB_ TAT (RG), #0, ir 5 LE 28 NS ee OO 
et AB Hy 8 = 79B 14 4 RO‘ert 4 =RB TATCR R4) ath E THE DATA THRU THE FALLBACK TABLE 
F BA 79E 1404 3108: POPR PPAR, =R27R3,R4,R5> : RESTORE THE REGISTERS AND 
FF92, 31 7a) 1405 220$: BR END _F ACL 
7A3 1406 .Disable Lsb 
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! Psect synopsis ! 
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PSECT name Allocation PSECT No. Attributes 


ABS . 0 0 ( ») 0 ( 0.) NOPIC USR CON ABS LCL EXE NORD NOWRT NOVEC BY 
$aBss ( ’ ( 1.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BY 
$$$115_DRIVER 00007A3 ( 195 2¢ 2.) NOPIC USR CON i Lee EXE RD WRT NOVEC L 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization 35 700: 98 00: 0: 85 
Command processing 118 :00:00. 0:00:03.16 
Pass 1 611 :00:18.41 0:01:04.1 
Symbol table sort o6h :00: $6 8: O31 8 
703. 7:00:13. 
wd table output 34 6 :00.19 8: :00.19 
Psect synopsis output 3 0: : 09:0 :00:00.67 
Cross-reference output 0: i By: 9-90 
Assembler run totals 1066 0: 6 0:01:33.54 


The yorking se ses Limit was 2100 pages. 

152 bytes (299 pages) of virtual memory were used to buffer the intermediate c 

There were 130 pages of symbol table space ar eceted to hold 2384 non-local and §9° Tecat symbols. 
1411 source lines were read in Pass 1, produci ng,! object records in Pass 2. 

56 pages of virtual memory were used to define 53 macros. 
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Macro Library name Macros defined 
$S22SDUACE: pas -081 2458. -MLB;1 2 
“$255$DUA SYSLIGISTARLET. ALB;2 1 
TOTALS (all Libraries) 32 


2769 GETS were required to define 32 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$: TTYSTRSTP/OBJ=OBJ$:TTYSTRSTP MSRC$:TTYSTRSTP/UPDATE=(ENHS: TTYSTRSTP) +EXECML$/LIB 
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